5 IFF=1 THEN 60
10 REM - SETUP -
30 CLR:DIM EF,E$,T,S,A$,A,OA,Q,EC,KE$,KE,MS$,FE
40 X=500:S$=CHR$(13):DIM MT$(X),MI$(X),MA$(X),MP$(X),AA$(X),AT$(X),MC$(X)
50 GOSUB 4000
55 IFF=0 THEN F=1:LOAD"GET'N STORE.O",8,1
60 OPEN15,8,15:OPEN2,8,2,"0:CATALOG,S,R":Q=1
70 GOSUB90:IF EF<>62 THEN GOTO1120
80 CLOSE2:MS$="[195][210][197][193][212][197] [206][197][215] [195][193][212][193][204][207][199]":GOTO720
90 INPUT#15,EF,E$,T,S:RETURN
100 PRINT"  [208]RESS ([211][208][193][195][197]) TO CONTINUE. " :G=0
101 :
102 GETA$:IFA$<>" "THEN102
110 POKE53280,.:POKE53281,.
111 GOSUB1470
120 PRINTTAB(15)"[205][193][201][206] [205][197][206][213]":PRINT"[158]  1. [195]HOOSE BY NAME OF MAGAZINE"
130 PRINT"  2. [195]HOOSE BY MONTH/YEAR"
135 PRINT"  3. [195]HOOSE BY NAME OF ARTICLE"
140 PRINT"  4. [195]HOOSE BY AUTHOR'S NAME"
145 PRINT"  5. [195]HOOSE BY ARTICLE SUBJECT"
150 PRINT"  6. [195]HECK ALL ENTRIES":PRINT"  7. [193]PPEND TO CATALOG"
160 PRINT"  8. [197]DIT CATALOG":PRINT"  9. [209]UIT TO [204][207][193][196][211][212][193][210]"
170 PRINT"[145]  [197]NTER CHOICE (1-9):";
180 SYS32768,1,4+128,KE$:IFKE$=""ORKE$=" "THEN 110
181 IF KE$<"1"ORKE$>"9"THEN PRINTCHR$(20);:GOTO 180
190 KE=VAL(KE$):ON KE GOTO200,280,360,440,520,600,700,830,630
200 REM ---
210 GOSUB1470
220 PRINTTAB(7)"[211]EARCH BY NAME OF MAGAZINE":Q=0
230 PRINT"[206]AME OF MAGAZINE":SYS32768,25,7,TM$
240 GOSUB1480
250 Q=Q+1:IF Q>A THEN1490
260 IF LEFT$(MT$(Q),LEN(TM$))<>TM$THEN240
270 GOSUB1500:GOTO240
280 REM - MONTH/YEAR -
290 GOSUB1470
300 PRINTTAB(9)"[211]EARCH BY MONTH/YEAR":Q=0
310 PRINT"[205]ONTH/[217]EAR:";:SYS32768,7,12,TM$
320 GOSUB1480
330 Q=Q+1:IF Q>A THEN1490
340 IF LEFT$(MI$(Q),LEN(TM$))<>TM$THEN320
350 GOSUB1500:GOTO320
360 REM - NAME OF ARTICLE -
370 GOSUB1470
380 PRINTTAB(13)"[211]EARCH BY NAME OF ARTICLE":Q=0
390 PRINT"[206]AME OF ARTICLE :";:SYS32768,25,7,TM$
400 GOSUB1480
410 Q=Q+1:IF Q>A THEN1490
420 IF LEFT$(MA$(Q),LEN(TM$))<>TM$THEN400
430 GOSUB1500:GOTO400
440 REM - AUTHOR'S NAME -
450 GOSUB1470
460 PRINTTAB(8)"SEARCH BY AUTHOR'S NAME":Q=0
470 PRINT"[193]UTHOR'S NAME";:SYS32768,25,7,TM$
480 GOSUB1480
490 Q=Q+1:IF Q>A THEN1490
500 IF LEFT$(AA$(Q),LEN(TM$))<>TM$THEN480
510 GOSUB1500:GOTO480
520 REM - ARTICLE SUBJECT -
530 GOSUB1470
540 PRINTTAB(8)"[211]EARCH BY ARTICLE SUBJECT":Q=0
550 PRINT"[193]RTICLE SUBJECT: ";:SYS32768,25,7,TM$
560 GOSUB1480
570 Q=Q+1:IF Q>A THEN1490
580 IF LEFT$(AT$(Q),LEN(TM$))<>TM$THEN560
590 GOSUB1500:GOTO560
600 Q=0:REM - SEARCH ENTIRE LIST -
610 Q=Q+1:IF Q>A THEN1490
620 PRINT"[147]":GOSUB1170:GOSUB1250:GOTO610
630 REM - QUIT -
640 PRINT"[147]"
650 PRINTTAB(12)"[209]UIT TO [204][207][193][196][211][212][193][210]"
660 PRINTTAB(10)"[193]RE YOU SURE? ([217]/[206])";
665 SYS32768,4,1+128,KE$:IFKE$=""THENPRINT"":GOTO 650
670 IF KE$="[217]"THEN690
671 IF KE$="[206]"THEN110
680 PRINTCHR$(20);:GOTO 665
690 POKE53281,6:POKE53280,14:PRINT"[147][154]":PRINTCHR$(142):CLOSE15
691 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
692 IF ER<>63 THEN PRINT"[147]":END
693 LOAD"HELLO CONNECT",8
700 REM - APPEND TO CATALOG -
710 MS$="[193][208][208][197][206][196] [212][207][160][195][193][212][193][204][207][199]":A=OA
720 GOSUB1470:PRINTTAB(11)MS$:A=A+1
730 PRINT"[158][197]NTER NAME OF MAGAZINE":PRINT":";:SYS32768,25,7,MT$(A)
740 PRINT"[158][197]NTER MONTH/YEAR":PRINT":";:SYS32768,7,12,MI$(A)
750 PRINT"[158][197]NTER TITLE OF ARTICLE":PRINT":";:SYS32768,25,7,MA$(A)
760 PRINT"[158][197]NTER PAGE OF ARTICLE":PRINT":";:SYS32768,7,12,MP$(A)
770 PRINT"[158][197]NTER AUTHOR'S NAME":PRINT":";:SYS32768,25,7,AA$(A)
780 PRINT"[158][197]NTER ARTICLE SUBJECT":PRINT":";:SYS32768,25,7,AT$(A)
790 PRINT"[158][197]NTER COMMENTS ON ARTICLE":PRINT" :";:SYS32768,38,15,MC$(A)
800 PRINT"[158] [201]S THIS CORRECT? ([217]/[206])"
801 GETKE$:IFKE$=""THEN 801
802 IFKE$="Y"ORKE$="[217]"THEN810
803 IFKE$="N"ORKE$="[206]"THENA=A-1:GOTO720
805 GOTO 801
810 PRINT"[145][196]O YOU WISH TO ENTER ANOTHER? ([217]/[206])"
811 GETKE$:IFKE$=""THEN 811
812 IF KE$="Y"ORKE$="[217]"THEN 720
813 IF KE$="N"ORKE$="[206]"THEN GOSUB 1020 :GOTO110
815 GOTO 811
830 REM - EDIT CATALOG -
840 Q=0:HM$=""
850 GOSUB1470:PRINTTAB(15)"[197][196][201][212] [195][193][212][193][204][207][199]":Q=Q+1:IF Q>A THEN990
860 GOSUB1170:POKE781,22:POKE782,2:SYS65520
870 PRINT"[208]RESS [[197]] TO EDIT OR [[195]] TO CONTINUE"
880 PRINT"  LISTING. [200]IT [154][[209]] TO QUIT."
890 GET KE$:IF KE$=""THEN890
900 IF KE$="C"THEN850
910 IF KE$="Q"THEN1000
920 IF KE$<>"E"THEN890
930 FE=1
935 PRINT"[208]RESS [211][208][193][195][197] TO EDIT LINE - [210]ETURN SKIPS"
940 PRINT"                            "
950 PRINTHM$+"";:LE=25:FU=7:A$=MT$(Q):GOSUB9000:MT$(Q)=A$
951 PRINTHM$+"";:LE=7:FU=12:A$=MI$(Q):GOSUB9000:MI$(Q)=A$
952 PRINTHM$+"";:LE=25:FU=7:A$=MA$(Q):GOSUB9000:MA$(Q)=A$
953 PRINTHM$+"";:LE=5:FU=7:A$=MP$(Q):GOSUB9000:MP$(Q)=A$
954 PRINTHM$+"";:LE=25:FU=7:A$=AA$(Q):GOSUB9000:AA$(Q)=A$
955 PRINTHM$+"";:LE=25:FU=7:A$=AT$(Q):GOSUB9000:AT$(Q)=A$
956 PRINTHM$+"":LE=80:FU=15:A$=MC$(Q):GOSUB9000:MC$(Q)=A$
980 Q=Q-1:GOTO850
990 PRINT"[147][211]ORRY! [212]HERE ARE NO MORE ENTRIES.":FORW=1TO2000:NEXT
1000 IFFE=1THENFE=0:GOSUB1020:GOTO 110
1010 GOTO110
1020 REM - SAVE CATALOG TO DISK -
1030 PRINT#15,"S0:CATALOG":EC=19:GOSUB1510
1040 OPEN2,8,2,"0:CATALOG,S,W":EC=19:GOSUB1510
1050 PRINT#2,A
1060 FOR Q=1 TO A
1070 PRINT#2,MT$(Q)S$MI$(Q)S$MA$(Q)S$MP$(Q)S$AA$(Q)S$AT$(Q)S$MC$(Q)S$
1080 NEXT Q:EC=19:GOSUB1510:CLOSE2
1090 PRINT"[147][195]ATALOG SAVED. [208]RESS A KEY TO CONTINUE."
1100 GET KE$:IF KE$=""THEN1100
1110 RETURN
1120 REM - GET CATALOG FROM DISK -
1130 INPUT#2,A$:A=VAL(A$):OA=A:FOR Q=1 TO A
1140 INPUT#2,MT$(Q),MI$(Q),MA$(Q),MP$(Q),AA$(Q),AT$(Q),MC$(Q)
1150 NEXT Q:EC=0:GOSUB1510:CLOSE2
1160 IFQ=0 THEN GOTO110
1161 GOTO100
1170 REM - PRINT LIST -
1180 SP$="  ":PRINT"  [205]AGAZINE:[158]":PRINTSP$MT$(Q)
1190 PRINT"  [205]ONTH/[217]EAR:[158]":PRINTSP$MI$(Q)
1200 PRINT"  [193]RTICLE NAME:[158]":PRINTSP$MA$(Q)
1210 PRINT"  [208]AGE OF ARTICLE:[158]":PRINTSP$MP$(Q)
1220 PRINT"  [193]UTHORS NAME:[158]":PRINTSP$AA$(Q)
1230 PRINT"  [193]RTICLE SUBJECT:[158]":PRINTSP$AT$(Q)
1240 PRINT"  [195]OMMENTS:[158]":PRINTSP$MC$(Q):RETURN
1250 PRINT"  [208]RESS [[195]] TO CONTINUE LISTING OR"
1260 PRINT"  PRESS [154][[208]] TO PRINT OR [[209]] TO QUIT"
1270 PRINT"  SEARCHING AND RETURN TO MENU."
1280 KE$="":GET KE$:IF KE$=""THEN GOTO1280
1290 IF KE$="C"THEN RETURN
1300 IF KE$="P"THEN GOSUB 1330:RETURN
1310 IF KE$="Q"THEN GOTO110
1320 GOTO1280
1330 REM - PRINT TO PRINTER -
1331 OPEN16,4,15:CLOSE16:IFST<>0 THEN 8000
1340 OPEN 3,4,7
1350 PRINT#3,"[205]AGAZINE--------:";MT$(Q)
1360 PRINT#3,"[205]ONTH/YEAR------:";MI$(Q)
1370 PRINT#3,"[193]RTICLE NAME----:";MA$(Q)
1380 PRINT#3,"[208]AGE OF ARTICLE-:";MP$(Q)
1390 PRINT#3,"[193]UTHORS NAME----:";AA$(Q)
1400 PRINT#3,"[193]RTICLE SUBJECT-:";AT$(Q)
1410 PRINT#3,"[195]OMMENTS--------:";MC$(Q)
1420 PRINT#3:PRINT#3:CLOSE 3
1430 PRINT"      [208]RESS ANY KEY TO CONTINUE."
1440 GET KE$:IF KE$=""THEN1440
1450 RETURN
1460 REM - SUBROUTINES -
1470 PRINT"[147]     [158]    [204][207][193][196][211][212][193][210] [208]RESENTS.."
1471 PRINT"       [205]AGAZINE [193]RTICLE [195]ATALOGER"
1475 RETURN
1480 PRINT"[147]      [159][208]LEASE WAIT...[211]EARCHING.":RETURN
1490 PRINT"[147]         [211]EARCH IS FINISHED.":FORW=1TO1500:NEXT:GOTO110
1500 PRINT"[147]            [198]OUND A MATCH.":GOSUB1170:GOSUB1250:RETURN
1510 GOSUB90:IF EF>EC THEN PRINT"[196][201][211][203] [197][210][210][207][210] #"EF;E$:CLOSE2:CLOSE15:END
1520 RETURN
4000 POKE53265,(PEEK(53265)AND239):POKE53280,11:POKE53281, 0:PRINT"[147]";
4001 PRINT"[155]E # 36 sOFTDISK ISSUE # 51 bIG bLUE dISK ISSU[158]                        ";
4002 PRINT"    [155]IG bLUE dISK[158]     lOADSTAR pRESENTS      [152]S[155]UE # 19 lOA[158]     [163][163][163][163][163][163]";
4003 PRINT"[163][163][163][163][163][163][163][163][163][163][163]      [152]S[155]UE # 31 sOFT[152]DISK ISSUE # 53 lOADSTAR ISS[155]UE # 6 sOF";
4004 PRINT"TDISK ISSUE # 12 sOFTDISK ISSUE # 27 sOFTDISK ISSUE # 44 lOADSTAR ISSUE ";
4005 PRINT"# 49 sOF                              [155]E # 41 lOA      magazine[160]catalo";
4006 PRINT"ger      [152] [155]ISSUE # 4                              [152]d[155]ISK ISSUE     wR";
4007 PRINT"ITTEN BY cHRIS sTOY    [152]S[155]TAR ISSUE                              [152]S[155]TAR";
4008 PRINT" ISSUE [152]# 4 lOADSTAR ISSUE # 21 sOFTDI[155]SK ISSUE # 8 sOFTDISK ISSUE # 48 ";
4009 PRINT"sOFTDISK ISSUE # 48 sOFTDISK ISSUE # 53 sOFTDISK ISSUE # 3[154]             ";
4010 PRINT"             [155] bIG bLUE dISK[154]     cOPYRIGHT 1988       [152] [155]# 12 lOADSTAR[154]";
4011 PRINT"                          [152] [155]# 42 sOFTDISK [152]ISSUE # 8 sOFTDISK ISSUE #[155] ";
4012 PRINT"9 [211]OFTDISK ISSUE # 29 [211]OFTDISK ISSUE # 11 [194]IG [194]LUE [196]ISK ISSUE # 12 [204]OADS";
4013 PRINT"TAR ISSUE # 30 [211]                                    [155]#2 [194]   [208]LEASE WAI";
4014 PRINT"T WHILE LOADING...     [152]A[155]DST                                    [152]#[155] 3 ";
4015 PRINT"[204][152]OADSTAR ISSUE #51 [211]OFTDISK ISSUE # 1":POKE2023,55+128
4017 POKE56295,15
4020 POKE53265,PEEK(53265)OR16
4025 RETURN
8000 POKE648,192:PRINT"[152][147]":POKE648,4
8001 PRINT""
8002 PRINT"                      "
8003 PRINT"    [211]ORRY, [194]UT....    [151] "
8004 PRINT" [208]RINTER NOT DETECTED [151] "
8005 PRINT"    [208]RESS ([211][208][193][195][197])     [151] "
8006 PRINT"                      [151] "
8007 PRINT"[151]                      "
8010 GETA$:IFA$<>" "THEN 8010
8025 RETURN
9000 L=LEN(A$)
9005 PRINT"  [158]"A$;:FORX=0TOL:PRINT"[157]";:NEXT
9010 SYS32768,LE,1+128,KE$
9011 IFKE$<>" " THEN RETURN
9014 PRINT"[145]";
9015 FORX=0TOL+1:PRINT" ";:NEXT:FORX=1TOL:PRINTCHR$(20);:NEXT
9016 SYS32768,LE,FU,B$
9020 IFB$=""THEN PRINT"[145]";:GOTO 9005
9030 A$=B$:RETURN